function [RM, RM_Mean] = RM_One_Animal_One_Dose(Data_Summary, AnimalID, drug)

for n=1:size(Data_Summary,2)
    if strcmp(Data_Summary(n).animalName, AnimalID) && strcmp(Data_Summary(n).drug, drug)
        RM(n,1)=Data_Summary(n).RateMap_Corr_Memory_Index;
    end
end
RM(RM==0)=[];
RM_Mean = mean(RM);

end